home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sounds Terrific 2
/
Sounds Terrific II (1996)(Weird Science)(Disc 1 of 2)[Amiga-PC].iso
/
archives
/
amiga
/
amisox33.lha
/
AmiSOX3.3
/
dist
/
skeleff.c
< prev
next >
Wrap
C/C++ Source or Header
|
1994-01-23
|
2KB
|
101 lines
/*
* July 5, 1991
* Copyright 1991 Lance Norskog And Sundry Contributors
* This source code is freely redistributable and may be used for
* any purpose. This copyright notice must be maintained.
* Lance Norskog And Sundry Contributors are not responsible for
* the consequences of using this software.
*/
/*
* Sound Tools skeleton effect file.
*/
#include "st.h"
#include <math.h>
/* Private data for SKEL file */
typedef struct skelstuff {
int rest; /* bytes remaining in current block */
} *skel_t;
/*
* Process options
*/
skel_getopts(effp, n, argv)
eff_t effp;
int n;
char **argv;
{
if (n)
fail("Copy effect takes no options.");
}
/*
* Prepare processing.
*/
skel_start(effp)
eff_t effp;
{
/* nothing to do */
/* stuff data into delaying effects here */
}
/*
* Processed signed long samples from ibuf to obuf.
* Return number of samples processed.
*/
skel_flow(effp, ibuf, obuf, isamp, osamp)
eff_t effp;
long *ibuf, *obuf;
int *isamp, *osamp;
{
skel_t skel = (skel_t) effp->priv;
int len, done;
char c;
unsigned char uc;
short s;
unsigned short us;
long l;
unsigned long ul;
float f;
double d;
len = ((*isamp > *osamp) ? *osamp : *isamp);
for(done = 0; done < len; done++) {
if no more samples
break
get a sample
l = sample converted to signed long
*buf++ = l;
}
*isamp =
*osamp =
}
/*
* Drain out remaining samples if the effect generates any.
*/
skel_drain(effp, obuf, osamp)
long *obuf;
int *osamp;
{
*osamp = 0;
}
/*
* Do anything required when you stop reading samples.
* (free allocated memory, etc.)
*/
skel_stop(effp)
eff_t effp;
{
/* nothing to do */
}